home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / bltuc bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  33 lines
  1. 10 rem ***** bltuc - testprogramm *****
  2. 20 printchr$(147)
  3. 30 poke53280,0:poke53281,5:poke646,1
  4. 35 rem +++ farbram u. schirm belegen +++
  5. 40 for i = 0 to 79:poke55296+i,1:nexti
  6. 50 for i = 1 to 39:poke1024+i,i:nexti
  7. 52 rem +++ ml-prg.parameteruebergabe +++
  8. 54 for i=49152to49158:reada:pokei,a:nexti
  9. 56 data133,95,134,96,76,191,163
  10. 60 rem +++ aufwaerts verschieben +++
  11. 62 fori=0to300:nexti
  12. 64 printchr$(17)chr$(17)"wir verschieben jetzt!"
  13. 66 fori=0to300:nexti
  14. 70 qs=1025:qe=1064:rem quelle start und quelle ende+1
  15. 80 ze=1065:rem ziel ende+1
  16. 90 a=int(qs/256):poke781,a:poke780,qs-256*a
  17. 100 a=int(qe/256):poke91,a:poke90,qe-256*a
  18. 110 a=int(ze/256):poke89,a:poke88,ze-256*a
  19. 120 sys49152
  20. 130 printchr$(17)chr$(17)"das war um 1 aufwaerts":print"bitte taste druecken"
  21. 140 geta$:ifa$=""then140
  22. 150 rem +++ abwaerts verschieben +++
  23. 152 fori=0to300:nexti
  24. 154 printchr$(17)chr$(17)"jetzt verschieben wir abwaerts!"
  25. 156 fori=0to300:nexti
  26. 160 qs=1025:qe=1064:rem quelle start und quelle ende+1
  27. 170 ze=1063:rem ziel ende+1
  28. 180 a=int(qs/256):poke781,a:poke780,qs-256*a
  29. 190 a=int(qe/256):poke91,a:poke90,qe-256*a
  30. 200 a=int(ze/256):poke89,a:poke88,ze-256*a
  31. 210 sys49152
  32. 220 printchr$(17)chr$(17)"da sehen sie das problem":print"der bltuc-routine"
  33.